home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d17
/
cardptr.arc
/
README.BAT
< prev
next >
Wrap
DOS Batch File
|
1988-10-16
|
3KB
|
194 lines
echo off
rem 8:27:29 11/23/1987
rem Generic for monochrome windows BUSINESS/PERSONAL
rem pop-up windows for installing programs on A: B: C: drives
cls
vidpop/s
cls
goto start
:start
pop set library to BPMONO.win
pop Document
seterror
if errorlevel 6 GOTO End
if errorlevel 5 GOTO DISKCOUNT
if errorlevel 4 GOTO FEATURE
if errorlevel 3 GOTO PRINTED
if errorlevel 2 GOTO ONSCREEN
if errorlevel 1 GOTO SETUP
rem seterror
goto start
:SETUP
REM Setup.Bat for One, Two, or HardDrive
REM Make hardDrive sub-directory CHECKING
pop Explain
seterror
if errorlevel 6 GOTO EndCls
if errorlevel 5 GOTO DriveH
if errorlevel 4 GOTO DriveC
if errorlevel 3 GOTO DriveB
if errorlevel 2 GOTO DriveA
if errorlevel 1 GOTO DiskSet
GOTO SETUP
:DiskSet
rem How to format a diskette
pop DiskForm
Goto End
:DriveH
rem Compufile help only
pop helpme0
Pause
pop helpme1
pause
Goto Setup
:DriveA
rem Copying files a: b: on a 1 disk system
pop DriveA
Goto End
:DriveB
pop DriveB
Pause
Copy Config.sys B:
Copy B:Ansi.sys
pop DriveB2
Pause
Copy Autoexec.bat B:
Copy Ansi.sys B:
Copy Confi*.sys B:
Copy Compufil.exe B:
Copy Compufil.ov? B:
Copy Computer.fil B:
pop DriveB3
If not exist b:command.com Goto DriveB3NoCom
Goto End
Rem The target disk has no DOS; delete the 'sys' & 'bat' files.
:DriveB3NoCom
Del b:*.sys
Del b:Autoexec.bat
pop nocomfil
Goto End
:DriveC
pop HardDisk
Pause
If not exist c:\config.sys Goto MoveSys
pop Blanker
pop HDconfig
Echo
Echo
Type C:\config.sys
Echo
Pause
Goto LeaveSys
:MoveSys
Copy config.sys c:\config.sys
C:
Cd\
Md File
Cd File
Copy a:Compufil.exe
Copy a:Compufil.ov?
Copy a:Computer.fil
Cd\
A:
pop HDFinish
pop HDEndPop
Goto End
:LeaveSys
C:
Cd\
Md File
Cd File
Copy a:Compufil.exe
Copy a:Compufil.ov?
Copy a:Computer.fil
Cd\
A:
pop HDFinish
pop HDEndPop
Goto End
:ONSCREEN
cls
echo
echo
echo
echo The manual will print very rapidly on the screen.
echo .................................................
echo
echo
echo
echo Stop or Start the display: Press Ctrl-S
echo
echo End the screen display: Press Ctrl-BREAK
echo
echo
echo
echo
echo
echo
echo
pause
cls
type compubp.man
Goto end
:PRINTED
cls
echo
echo
echo
echo Make sure your printer is turned on and loaded
echo with paper.
pause
echo
echo
echo
echo Printing the instruction manual for Compufile
type compubp.man>prn
echo
echo
echo
echo Printing completed for the Compufile
echo
echo Please read the instructions before you use the program.
pause
Goto end
:FEATURE
pop FEATURES
seterror
if errorlevel 5 GOTO DISKCOUNT
if errorlevel 4 GOTO HELPSCREEN
if errorlevel 3 GOTO PRINTED
if errorlevel 2 GOTO ONSCREEN
if errorlevel 1 GOTO START
GOTO FEATURE
:DISKCOUNT
echo ■■ terminate vidpop/
cls
catalog
:HELPSCREEN
pop helpme0
Pause
pop helpme1
pause
goto start
:EndCls
Cls
GoTo End
:End
echo ■■ terminate vidpop/